home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue26 / tiptrix / NoteMenu / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-20  |  2.1 KB  |  103 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, Tabs, Menus, StdCtrls, Buttons;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     File1: TMenuItem;
  13.     Exit1: TMenuItem;
  14.     N1: TMenuItem;
  15.     PrintSetup1: TMenuItem;
  16.     Print1: TMenuItem;
  17.     N2: TMenuItem;
  18.     SaveAs1: TMenuItem;
  19.     Save1: TMenuItem;
  20.     Open1: TMenuItem;
  21.     New1: TMenuItem;
  22.     TabSet1: TTabSet;
  23.     Notebook1: TNotebook;
  24.     Page1Menu: TMainMenu;
  25.     Page2Menu: TMainMenu;
  26.     Window1: TMenuItem;
  27.     Show1: TMenuItem;
  28.     Hide1: TMenuItem;
  29.     N3: TMenuItem;
  30.     ArrangeAll1: TMenuItem;
  31.     Cascade1: TMenuItem;
  32.     Tile1: TMenuItem;
  33.     NewWindow1: TMenuItem;
  34.     Help1: TMenuItem;
  35.     About1: TMenuItem;
  36.     HowtoUseHelp1: TMenuItem;
  37.     SearchforHelpOn1: TMenuItem;
  38.     Contents1: TMenuItem;
  39.     Window2: TMenuItem;
  40.     Show2: TMenuItem;
  41.     Hide2: TMenuItem;
  42.     N4: TMenuItem;
  43.     ArrangeAll2: TMenuItem;
  44.     Cascade2: TMenuItem;
  45.     Tile2: TMenuItem;
  46.     NewWindow2: TMenuItem;
  47.     BitBtn1: TBitBtn;
  48.     BitBtn2: TBitBtn;
  49.     procedure TabSet1Change(Sender: TObject; NewTab: Integer;
  50.       var AllowChange: Boolean);
  51.     procedure FormCreate(Sender: TObject);
  52.     procedure BitBtn1Click(Sender: TObject);
  53.     procedure BitBtn2Click(Sender: TObject);
  54.   private
  55.     { Private declarations }
  56.   public
  57.     { Public declarations }
  58.     CurMenu: TMainMenu;
  59.   end;
  60.  
  61. var
  62.   Form1: TForm1;
  63.  
  64. implementation
  65.  
  66. uses Unit2, Unit3;
  67.  
  68. {$R *.DFM}
  69.  
  70. procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  71.   var AllowChange: Boolean);
  72. begin
  73.   case NewTab of
  74.     0: begin
  75.       CurMenu := Page1Menu;
  76.       MainMenu1.Merge(Page1Menu);
  77.     end;
  78.     1: begin
  79.       CurMenu := Page2Menu;
  80.       MainMenu1.Merge(Page2Menu);
  81.     end;
  82.   end;
  83. end;
  84.  
  85. procedure TForm1.FormCreate(Sender: TObject);
  86. begin
  87.   CurMenu := Page1Menu;
  88.   MainMenu1.Merge(CurMenu);
  89. end;
  90.  
  91. procedure TForm1.BitBtn1Click(Sender: TObject);
  92. begin
  93.   Form2.Show;
  94. end;
  95.  
  96.  
  97. procedure TForm1.BitBtn2Click(Sender: TObject);
  98. begin
  99.   Form3.Show;
  100. end;
  101.  
  102. end.
  103.